gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGpic.asp

    <!-- #INCLUDE FILE="login.asp" -->

<%

	'///******************************************************************
	'  所有广告图列表显示 
	'******************************************************************///
	
	Call AdminQx(2,"")

Dim pageurl:pageurl="?actions="&trim(request("actions"))&"&wei="&request("wei")&"&keyword="&request("keyword")&"&cid="&trim(request("cid"))&"&pid="&trim(request("pid"))&"&xslx="&trim(request("xslx"))&"&act="&trim(request("act"))&"&px="&request("px")&"&"   '分页连接公共地址
Dim rssum:rssum=0
Dim maxpage:maxpage=10
Dim pp:pp=10
Dim font_color:font_color="red"
thepages="10"
Dim addsql
addsql=""
Dim xslx

action=trim(request("action"))


'response.write action&" "

select case action
case "ruku"
  dqw="验证新添加的广告条信息"
  Call Heads_GGtiao(dqw)
  call GgtiaoxxRuku()
case "act"
  call GGtiaoClose(trim(request("adids")),trim(request("actz")))
  call GGtiaoMain()
case "ip"
  call GGtiaoIpkg(trim(request("adids")),trim(request("ipz")))
  call GGtiaoMain()
case else
  dqw="已有广告图"
  call GGpicMain()
end select


'/********************************************************************
' GGpicMain() 分页列表显示不同广告图 
'********************************************************************/

  sub GGpicMain()
  
 
  Call Heads_GGpic(dqw)
  
  
  '' 开始分页显示广告图主体效果
  
%>
<table border=0 cellspacing=0 cellpadding=0 width=100%>
<tr>
<td valign="top">

 <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  function checkAll(ks,js)
  { 
    for (var i=ks;i<js;i++)
    {
      var e = document.form1.elements[i];
      var boolValue = document.form1.selectAll.checked;
      if (e.name != "selectAll" )
	  {
        e.checked = boolValue;
	  }
    }
  }

  </SCRIPT>
  
 <table border=0 width=100% cellspacing=0 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
      
<tr align=center>
      <td>
      
 <table border=0 width=98% cellspacing=5 cellpadding=2 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
   <tr bgcolor=#C0C0C0><td colspan=3></td></tr><tr><td colspan=3 height=10></td></tr>   
<tr align=center>

<%i=0

  sql="select * from Pictrue "
  rs.open sql,conn,1,1
  
  
  '' 分页设置部分 
  
  if rs.eof and rs.bof then
    rssum=0
  else
    rssum=rs.recordcount
  end if
  
  call PubPageGs() 
  
  if int(viewpage)<>1 then
    rs.move (viewpage-1)*nummer
  end if
  
  ids=""
  us=""
  
  for i=1 to nummer
  
  if rs.eof then exit for
  
  '''''''''''

  ids=ids&","&rs(0)
  us=us&"/$/"&rs(1)
%>

      
 <%if Lcase(right(trim(rs(1)),3))="swf" then
 
   	'response.write "<td><embed src='"&rs(1)&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='120'></embed></td>"
%>
<td  height=90>
 <SCRIPT LANGUAGE="JavaScript">
  document.write('<embed src=\"<%=rs(1)%>\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\"  width=\"120\" height=\"90\"></embed>');
 </SCRIPT>
 </td>
<%
    else

    %><td height=90>
    
 <SCRIPT LANGUAGE="JavaScript">
    document.write('<img  border=0  src=\"<%=rs(1)%>\" onload=\"if((this.width/this.height)>(12/9)){this.width=120;}else{this.height=90;}\">');
 </SCRIPT>
    </td>
    <%
   
   end if
   
   
   if i mod 3 =0 then
   idss=split(ids,",")
   uss=split(us,"/$/")
   response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(2)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(2)&"&u="&uss(2)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(3)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(3)&"&u="&uss(3)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr  height=1><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>"
   ids=""
   us=""
   end if
   
   if i=rssum and i mod 3=1 then
   idss=split(ids,",")
   uss=split(us,"/$/")
   response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr  height=1><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>"
   ids=""
   us=""
   end if

   if i=rssum and i mod 3=2 then
   idss=split(ids,",")
   uss=split(us,"/$/")
   response.write "</tr><tr align=center><td height=30>PID="&idss(1)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(1)&"&u="&uss(1)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td><td height=30>PID="&idss(2)&" <a href=javascript:opw('GGpicCz.asp?id="&idss(2)&"&u="&uss(2)&"&a=Ts','ZonGG',800,600)>所属广告条</a></td></tr><tr  height=1><td bgcolor=#C0C0C0></td><td bgcolor=#C0C0C0></td></tr><tr><td colspan=3 height=10></td></tr><tr align=center>"
   ids=""
   us=""
   end if  
   
 rs.movenext
 
  next

%>   


 </tr>      
</table>


    </td>
 </tr>
      


<%
   
  rs.close
 
%>
    
      <tr   height=30>
        <td> &nbsp;共 <%=rssum%> 个,分 <%=thepages%> 页,每页 <%=nummer%> 个, 页码:<%=PubPage1(maxpage,thepages,viewpage,pageurl,pp,font_color)%></td>
      </tr>
      
</table>

<%
  end sub

%>